home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / text_utl / emedit20 / frmrepla.fr_ / frmrepla.fr
Text File  |  1994-04-28  |  3KB  |  94 lines
  1. VERSION 2.00
  2. Begin Form frmReplaceConfirm 
  3.    Caption         =   "Replace Confirm"
  4.    ClientHeight    =   1170
  5.    ClientLeft      =   1035
  6.    ClientTop       =   1050
  7.    ClientWidth     =   4470
  8.    Height          =   1575
  9.    Left            =   975
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1170
  12.    ScaleWidth      =   4470
  13.    Top             =   705
  14.    Width           =   4590
  15.    Begin CommandButton cmdCancel 
  16.       Cancel          =   -1  'True
  17.       Caption         =   "&Cancel"
  18.       Height          =   345
  19.       Left            =   3570
  20.       TabIndex        =   4
  21.       Top             =   660
  22.       Width           =   855
  23.    End
  24.    Begin CommandButton cmdAll 
  25.       Caption         =   "&All"
  26.       Height          =   345
  27.       Left            =   2700
  28.       TabIndex        =   3
  29.       Top             =   660
  30.       Width           =   855
  31.    End
  32.    Begin CommandButton cmdOne 
  33.       Caption         =   "&One"
  34.       Height          =   345
  35.       Left            =   1830
  36.       TabIndex        =   2
  37.       Top             =   660
  38.       Width           =   855
  39.    End
  40.    Begin CommandButton cmdNo 
  41.       Caption         =   "&No"
  42.       Height          =   345
  43.       Left            =   960
  44.       TabIndex        =   1
  45.       Top             =   660
  46.       Width           =   855
  47.    End
  48.    Begin CommandButton cmdYes 
  49.       Caption         =   "&Yes"
  50.       Default         =   -1  'True
  51.       Height          =   345
  52.       Left            =   90
  53.       TabIndex        =   0
  54.       Top             =   660
  55.       Width           =   855
  56.    End
  57.    Begin Label Label1 
  58.       Alignment       =   2  'Center
  59.       Caption         =   "Replace this occurrence?"
  60.       Height          =   285
  61.       Left            =   0
  62.       TabIndex        =   5
  63.       Top             =   120
  64.       Width           =   4485
  65.    End
  66. End
  67. Option Explicit
  68.  
  69. Sub cmdAll_Click ()
  70.     gfRecursiveSearch = REPLACE_ALL 'replace all
  71.     Unload Me               ' unload this form
  72. End Sub
  73.  
  74. Sub cmdCancel_Click ()
  75.     gfRecursiveSearch = REPLACE_CANCEL 'replace all
  76.     Unload Me
  77. End Sub
  78.  
  79. Sub cmdNo_Click ()
  80.     gfRecursiveSearch = REPLACE_NO 'replace all
  81.     Unload Me               ' unload this form
  82. End Sub
  83.  
  84. Sub cmdOne_Click ()
  85.     gfRecursiveSearch = REPLACE_ONE 'replace all
  86.     Unload Me               ' unload this form
  87. End Sub
  88.  
  89. Sub cmdYes_Click ()
  90.     gfRecursiveSearch = REPLACE_YES 'replace all
  91.     Unload Me               ' unload this form
  92. End Sub
  93.  
  94.